/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Internet / Web Things / MacHTTP 2.2.sit / MacHTTP 2.2 / MacHTTP Software & Docs / Tutorials / Extending MacHTTP Scripts / Email.txt

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 45 6d 61 69 6c 2e | 74 78 74 00 00 00 00 00 |..Email.|txt.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 54 6f 79 | 53 00 00 00 00 00 00 00 |.TEXTToy|S.......|
|00000050| 00 00 00 00 00 25 e5 00 | 00 05 4e ab 17 8a e6 ab |.....%..|..N.....|
|00000060| 17 8a e6 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 50 b5 00 00 |........|....P...|
|00000080| 2d 2d 20 73 65 74 20 74 | 68 65 73 65 20 70 72 6f |-- set t|hese pro|
|00000090| 70 65 72 74 69 65 73 20 | 6f 75 74 73 69 64 65 20 |perties |outside |
|000000a0| 6f 66 20 74 68 65 20 65 | 76 65 6e 74 2e 20 20 54 |of the e|vent.  T|
|000000b0| 68 61 74 20 77 61 79 20 | 74 68 65 79 20 77 69 6c |hat way |they wil|
|000000c0| 6c 20 6f 6e 6c 79 20 62 | 65 20 73 65 74 20 0d 2d |l only b|e set .-|
|000000d0| 2d 20 6f 6e 63 65 20 65 | 61 63 68 20 74 69 6d 65 |- once e|ach time|
|000000e0| 20 74 68 65 20 61 70 70 | 20 69 73 20 72 75 6e 2c | the app| is run,|
|000000f0| 20 6e 6f 74 20 6f 6e 63 | 65 20 66 6f 72 20 65 61 | not onc|e for ea|
|00000100| 63 68 20 65 76 65 6e 74 | 2e 0d 70 72 6f 70 65 72 |ch event|..proper|
|00000110| 74 79 20 63 72 6c 66 20 | 3a 20 28 41 53 43 49 49 |ty crlf |: (ASCII|
|00000120| 20 63 68 61 72 61 63 74 | 65 72 20 31 33 29 20 26 | charact|er 13) &|
|00000130| 20 28 41 53 43 49 49 20 | 63 68 61 72 61 63 74 65 | (ASCII |characte|
|00000140| 72 20 31 30 29 0d 2d 2d | 20 54 68 69 73 20 69 73 |r 10).--| This is|
|00000150| 20 61 20 73 74 61 6e 64 | 61 72 64 20 68 65 61 64 | a stand|ard head|
|00000160| 65 72 20 66 6f 72 20 48 | 54 4d 4c 20 66 69 6c 65 |er for H|TML file|
|00000170| 73 2e 0d 70 72 6f 70 65 | 72 74 79 20 68 74 74 70 |s..prope|rty http|
|00000180| 5f 31 30 5f 68 65 61 64 | 65 72 20 3a 20 22 48 54 |_10_head|er : "HT|
|00000190| 54 50 2f 31 2e 30 20 32 | 30 30 20 4f 4b 22 20 26 |TP/1.0 2|00 OK" &|
|000001a0| 20 63 72 6c 66 20 26 20 | 22 53 65 72 76 65 72 3a | crlf & |"Server:|
|000001b0| 20 4d 61 63 48 54 54 50 | 22 20 26 20 63 72 6c 66 | MacHTTP|" & crlf|
|000001c0| 20 26 20 c2 0d 09 22 4d | 49 4d 45 2d 56 65 72 73 | & ..."M|IME-Vers|
|000001d0| 69 6f 6e 3a 20 31 2e 30 | 22 20 26 20 63 72 6c 66 |ion: 1.0|" & crlf|
|000001e0| 20 26 20 22 43 6f 6e 74 | 65 6e 74 2d 74 79 70 65 | & "Cont|ent-type|
|000001f0| 3a 20 74 65 78 74 2f 68 | 74 6d 6c 22 20 26 20 63 |: text/h|tml" & c|
|00000200| 72 6c 66 20 26 20 63 72 | 6c 66 0d 2d 2d 20 49 64 |rlf & cr|lf.-- Id|
|00000210| 6c 65 74 69 6d 65 20 69 | 73 20 68 6f 77 20 6c 6f |letime i|s how lo|
|00000220| 6e 67 20 79 6f 75 20 77 | 61 6e 74 20 69 74 20 74 |ng you w|ant it t|
|00000230| 6f 20 72 65 6d 61 69 6e | 20 6f 70 65 6e 20 74 6f |o remain| open to|
|00000240| 20 0d 2d 2d 20 77 61 69 | 74 20 66 6f 72 20 61 6e | .-- wai|t for an|
|00000250| 6f 74 68 65 72 20 65 76 | 65 6e 74 2e 20 49 64 6c |other ev|ent. Idl|
|00000260| 65 74 69 6d 65 20 69 73 | 20 69 6e 20 73 65 63 6f |etime is| in seco|
|00000270| 6e 64 73 2e 0d 2d 2d 20 | 44 61 74 65 73 74 61 6d |nds..-- |Datestam|
|00000280| 70 20 77 69 6c 6c 20 63 | 6f 6e 74 61 69 6e 20 74 |p will c|ontain t|
|00000290| 68 65 20 63 75 72 72 65 | 6e 74 20 64 61 74 65 2e |he curre|nt date.|
|000002a0| 20 20 49 6e 69 74 69 61 | 6c 69 7a 65 20 69 74 20 |  Initia|lize it |
|000002b0| 68 65 72 65 2e 0d 70 72 | 6f 70 65 72 74 79 20 69 |here..pr|operty i|
|000002c0| 64 6c 65 74 69 6d 65 20 | 3a 20 33 30 30 20 2d 2d |dletime |: 300 --|
|000002d0| 20 73 65 74 20 74 6f 20 | 35 20 6d 69 6e 75 74 65 | set to |5 minute|
|000002e0| 73 0d 70 72 6f 70 65 72 | 74 79 20 64 61 74 65 73 |s.proper|ty dates|
|000002f0| 74 61 6d 70 20 3a 20 30 | 0d 0d 2d 2d 20 74 68 69 |tamp : 0|..-- thi|
|00000300| 73 20 62 69 74 20 6f 66 | 20 63 6f 64 65 20 6f 75 |s bit of| code ou|
|00000310| 74 73 69 64 65 20 74 68 | 65 20 73 64 6f 63 20 65 |tside th|e sdoc e|
|00000320| 76 65 6e 74 20 69 73 20 | 65 78 65 63 75 74 65 64 |vent is |executed|
|00000330| 20 61 74 20 6c 61 75 6e | 63 68 2d 74 69 6d 65 0d | at laun|ch-time.|
|00000340| 2d 2d 20 69 74 20 69 73 | 20 6e 65 63 63 65 73 61 |-- it is| neccesa|
|00000350| 72 79 20 62 65 63 61 75 | 73 65 20 61 6e 20 69 64 |ry becau|se an id|
|00000360| 6c 65 20 65 76 65 6e 74 | 20 63 61 6e 20 68 61 70 |le event| can hap|
|00000370| 70 65 6e 20 62 65 74 77 | 65 65 6e 0d 2d 2d 20 6c |pen betw|een.-- l|
|00000380| 61 75 6e 63 68 20 61 6e | 64 20 74 68 65 20 72 65 |aunch an|d the re|
|00000390| 63 65 69 70 74 20 6f 66 | 20 61 6e 20 73 64 6f 63 |ceipt of| an sdoc|
|000003a0| 20 65 76 65 6e 74 20 28 | 61 6e 64 20 69 6e 20 66 | event (|and in f|
|000003b0| 61 63 74 20 6f 66 74 65 | 6e 20 64 6f 65 73 29 0d |act ofte|n does).|
|000003c0| 73 65 74 20 64 61 74 65 | 73 74 61 6d 70 20 74 6f |set date|stamp to|
|000003d0| 20 63 75 72 72 65 6e 74 | 20 64 61 74 65 0d 0d 2d | current| date..-|
|000003e0| 2d 20 54 68 69 73 20 69 | 73 20 74 68 65 20 6c 6f |- This i|s the lo|
|000003f0| 6f 70 20 66 6f 72 20 41 | 70 70 6c 65 45 76 65 6e |op for A|ppleEven|
|00000400| 74 73 20 72 65 63 65 69 | 76 65 64 20 62 79 20 74 |ts recei|ved by t|
|00000410| 68 65 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 2e 0d |he appli|cation..|
|00000420| 2d 2d 20 57 68 65 6e 20 | 79 6f 75 20 63 68 65 63 |-- When |you chec|
|00000430| 6b 20 74 68 65 20 73 79 | 6e 74 61 78 2c 20 41 70 |k the sy|ntax, Ap|
|00000440| 70 6c 65 53 63 72 69 70 | 74 20 77 69 6c 6c 20 61 |pleScrip|t will a|
|00000450| 73 6b 20 79 6f 75 20 74 | 6f 20 6c 6f 63 61 74 65 |sk you t|o locate|
|00000460| 20 0d 2d 2d 20 4d 61 63 | 48 54 54 50 20 61 6e 64 | .-- Mac|HTTP and|
|00000470| 20 77 69 6c 6c 20 73 65 | 74 20 74 68 65 20 63 6f | will se|t the co|
|00000480| 72 72 65 63 74 20 6e 61 | 6d 65 20 61 74 20 74 68 |rrect na|me at th|
|00000490| 61 74 20 74 69 6d 65 2e | 0d 6f 6e 20 c7 65 76 65 |at time.|.on .eve|
|000004a0| 6e 74 20 57 57 57 bd 73 | 64 6f 63 c8 20 70 61 74 |nt WWW.s|doc. pat|
|000004b0| 68 5f 61 72 67 73 20 c2 | 0d 09 67 69 76 65 6e 20 |h_args .|..given |
|000004c0| c7 63 6c 61 73 73 20 6b | 66 6f 72 c8 3a 68 74 74 |.class k|for.:htt|
|000004d0| 70 5f 73 65 61 72 63 68 | 5f 61 72 67 73 2c 20 c7 |p_search|_args, .|
|000004e0| 63 6c 61 73 73 20 70 6f | 73 74 c8 3a 70 6f 73 74 |class po|st.:post|
|000004f0| 5f 61 72 67 73 2c 20 c7 | 63 6c 61 73 73 20 6d 65 |_args, .|class me|
|00000500| 74 68 c8 3a 6d 65 74 68 | 6f 64 2c 20 c7 63 6c 61 |th.:meth|od, .cla|
|00000510| 73 73 20 61 64 64 72 c8 | 3a 63 6c 69 65 6e 74 5f |ss addr.|:client_|
|00000520| 61 64 64 72 65 73 73 2c | 20 c7 63 6c 61 73 73 20 |address,| .class |
|00000530| 75 73 65 72 c8 3a 75 73 | 65 72 6e 61 6d 65 2c 20 |user.:us|ername, |
|00000540| c7 63 6c 61 73 73 20 70 | 61 73 73 c8 3a 70 61 73 |.class p|ass.:pas|
|00000550| 73 77 6f 72 64 2c 20 c7 | 63 6c 61 73 73 20 66 72 |sword, .|class fr|
|00000560| 6d 75 c8 3a 66 72 6f 6d | 5f 75 73 65 72 2c 20 c7 |mu.:from|_user, .|
|00000570| 63 6c 61 73 73 20 73 76 | 6e 6d c8 3a 73 65 72 76 |class sv|nm.:serv|
|00000580| 65 72 5f 6e 61 6d 65 2c | 20 c7 63 6c 61 73 73 20 |er_name,| .class |
|00000590| 73 76 70 74 c8 3a 73 65 | 72 76 65 72 5f 70 6f 72 |svpt.:se|rver_por|
|000005a0| 74 2c 20 c7 63 6c 61 73 | 73 20 73 63 6e 6d c8 3a |t, .clas|s scnm.:|
|000005b0| 73 63 72 69 70 74 5f 6e | 61 6d 65 2c 20 c7 63 6c |script_n|ame, .cl|
|000005c0| 61 73 73 20 63 74 79 70 | c8 3a 63 6f 6e 74 65 6e |ass ctyp|.:conten|
|000005d0| 74 5f 74 79 70 65 0d 09 | 2d 2d 20 56 61 72 69 61 |t_type..|-- Varia|
|000005e0| 62 6c 65 73 20 61 76 61 | 69 6c 61 62 6c 65 20 66 |bles ava|ilable f|
|000005f0| 6f 72 20 75 73 65 3a 0d | 09 2d 2d 20 68 74 74 70 |or use:.|.-- http|
|00000600| 5f 73 65 61 72 63 68 5f | 61 72 67 73 20 2d 20 73 |_search_|args - s|
|00000610| 74 75 66 66 20 69 6e 20 | 74 68 65 20 55 52 4c 20 |tuff in |the URL |
|00000620| 61 66 74 65 72 20 61 20 | 3f 0d 09 2d 2d 20 70 6f |after a |?..-- po|
|00000630| 73 74 5f 61 72 67 73 20 | 2d 20 73 74 75 66 66 20 |st_args |- stuff |
|00000640| 69 6e 20 74 68 65 20 55 | 52 4c 20 61 66 74 65 72 |in the U|RL after|
|00000650| 20 61 20 24 0d 09 2d 2d | 20 6d 65 74 68 6f 64 20 | a $..--| method |
|00000660| 2d 20 47 45 54 2c 20 50 | 4f 53 54 2c 20 65 74 63 |- GET, P|OST, etc|
|00000670| 2e 20 55 73 65 64 20 74 | 6f 20 74 65 6c 6c 20 69 |. Used t|o tell i|
|00000680| 66 20 70 6f 73 74 5f 61 | 72 67 73 20 61 72 65 20 |f post_a|rgs are |
|00000690| 76 61 6c 69 64 0d 09 2d | 2d 20 63 6c 69 65 6e 74 |valid..-|- client|
|000006a0| 5f 61 64 64 72 65 73 73 | 20 2d 20 49 50 20 61 64 |_address| - IP ad|
|000006b0| 64 72 65 73 73 20 6f 72 | 20 64 6f 6d 61 69 6e 20 |dress or| domain |
|000006c0| 6e 61 6d 65 20 6f 66 20 | 72 65 6d 6f 74 65 20 63 |name of |remote c|
|000006d0| 6c 69 65 6e 74 27 73 20 | 68 6f 73 74 0d 09 2d 2d |lient's |host..--|
|000006e0| 20 66 72 6f 6d 5f 75 73 | 65 72 20 2d 20 6e 6f 6e | from_us|er - non|
|000006f0| 2d 73 74 61 6e 64 61 72 | 64 2e 20 65 2d 6d 61 69 |-standar|d. e-mai|
|00000700| 6c 20 61 64 64 72 65 73 | 73 20 6f 66 20 72 65 6d |l addres|s of rem|
|00000710| 6f 74 65 20 75 73 65 72 | 0d 09 2d 2d 20 75 73 65 |ote user|..-- use|
|00000720| 72 6e 61 6d 65 20 2d 20 | 61 75 74 68 65 6e 74 69 |rname - |authenti|
|00000730| 63 61 74 65 64 20 75 73 | 65 72 20 6e 61 6d 65 0d |cated us|er name.|
|00000740| 09 2d 2d 20 70 61 73 73 | 77 6f 72 64 20 2d 20 61 |.-- pass|word - a|
|00000750| 75 74 68 65 6e 74 69 63 | 61 74 65 64 20 70 61 73 |uthentic|ated pas|
|00000760| 73 77 6f 72 64 0d 09 2d | 2d 20 73 65 72 76 65 72 |sword..-|- server|
|00000770| 5f 6e 61 6d 65 20 2d 20 | 6e 61 6d 65 20 6f 72 20 |_name - |name or |
|00000780| 49 50 20 61 64 64 72 65 | 73 73 20 6f 66 20 74 68 |IP addre|ss of th|
|00000790| 69 73 20 73 65 72 76 65 | 72 0d 09 2d 2d 20 73 65 |is serve|r..-- se|
|000007a0| 72 76 65 72 5f 70 6f 72 | 74 20 2d 20 54 43 50 2f |rver_por|t - TCP/|
|000007b0| 49 50 20 70 6f 72 74 20 | 6e 75 6d 62 65 72 20 62 |IP port |number b|
|000007c0| 65 69 6e 67 20 75 73 65 | 64 20 62 79 20 74 68 69 |eing use|d by thi|
|000007d0| 73 20 73 65 72 76 65 72 | 0d 09 2d 2d 20 73 63 72 |s server|..-- scr|
|000007e0| 69 70 74 5f 6e 61 6d 65 | 20 2d 20 55 52 4c 20 6e |ipt_name| - URL n|
|000007f0| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 73 63 72 69 |ame of t|his scri|
|00000800| 70 74 0d 09 2d 2d 20 63 | 6f 6e 74 65 6e 74 5f 74 |pt..-- c|ontent_t|
|00000810| 79 70 65 20 2d 20 4d 49 | 4d 45 20 63 6f 6e 74 65 |ype - MI|ME conte|
|00000820| 6e 74 20 74 79 70 65 20 | 6f 66 20 70 6f 73 74 5f |nt type |of post_|
|00000830| 61 72 67 73 0d 09 0d 09 | 2d 2d 20 55 73 69 6e 67 |args....|-- Using|
|00000840| 20 74 68 65 20 22 74 72 | 79 22 20 63 6c 61 75 73 | the "tr|y" claus|
|00000850| 65 20 63 61 75 73 65 73 | 20 74 68 65 20 22 6f 6e |e causes| the "on|
|00000860| 20 65 72 72 6f 72 22 20 | 72 6f 75 74 69 6e 65 20 | error" |routine |
|00000870| 74 6f 20 62 65 20 72 75 | 6e 0d 09 2d 2d 20 69 66 |to be ru|n..-- if|
|00000880| 20 61 6e 20 65 72 72 6f | 72 20 6f 63 63 75 72 73 | an erro|r occurs|
|00000890| 20 69 6e 73 74 65 61 64 | 20 6f 66 20 63 72 61 73 | instead| of cras|
|000008a0| 68 69 6e 67 2e 0d 09 2d | 2d 20 49 66 20 74 68 65 |hing...-|- If the|
|000008b0| 20 65 72 72 6f 72 20 6f | 63 63 75 72 73 20 6f 75 | error o|ccurs ou|
|000008c0| 74 73 69 64 65 20 74 68 | 65 20 22 74 72 79 22 2f |tside th|e "try"/|
|000008d0| 22 65 6e 64 20 74 72 79 | 22 20 73 70 61 63 65 20 |"end try|" space |
|000008e0| 74 68 65 6e 0d 09 2d 2d | 20 74 68 65 20 22 6f 6e |then..--| the "on|
|000008f0| 20 65 72 72 6f 72 22 20 | 72 6f 75 74 69 6e 65 20 | error" |routine |
|00000900| 69 73 20 4e 4f 54 20 72 | 75 6e 2e 0d 09 74 72 79 |is NOT r|un...try|
|00000910| 0d 09 09 2d 2d 20 73 61 | 76 65 20 74 68 65 20 63 |...-- sa|ve the c|
|00000920| 75 72 72 65 6e 74 20 64 | 61 74 65 20 61 6e 64 20 |urrent d|ate and |
|00000930| 74 69 6d 65 20 74 6f 20 | 63 68 65 63 6b 20 6c 61 |time to |check la|
|00000940| 74 65 72 20 66 6f 72 20 | 71 75 69 74 74 69 6e 67 |ter for |quitting|
|00000950| 0d 09 09 73 65 74 20 64 | 61 74 65 73 74 61 6d 70 |...set d|atestamp|
|00000960| 20 74 6f 20 63 75 72 72 | 65 6e 74 20 64 61 74 65 | to curr|ent date|
|00000970| 0d 09 09 0d 09 09 2d 2d | 20 50 61 72 73 65 20 74 |......--| Parse t|
|00000980| 68 65 20 70 6f 73 74 5f | 61 72 67 73 20 64 61 74 |he post_|args dat|
|00000990| 61 20 69 6e 74 6f 20 76 | 61 72 69 61 62 6c 65 73 |a into v|ariables|
|000009a0| 20 66 6f 72 20 70 72 6f | 63 65 73 73 69 6e 67 0d | for pro|cessing.|
|000009b0| 09 09 2d 2d 20 74 68 69 | 73 20 73 63 72 69 70 74 |..-- thi|s script|
|000009c0| 20 6f 6e 6c 79 20 68 61 | 6e 64 6c 65 73 20 74 68 | only ha|ndles th|
|000009d0| 65 20 70 6f 73 74 5f 61 | 72 67 73 2e 20 20 48 61 |e post_a|rgs.  Ha|
|000009e0| 6e 64 6c 69 6e 67 20 74 | 68 65 20 6f 74 68 65 72 |ndling t|he other|
|000009f0| 20 0d 09 09 2d 2d 20 76 | 61 72 69 61 62 6c 65 73 | ...-- v|ariables|
|00000a00| 20 69 73 20 74 72 69 76 | 69 61 6c 20 63 6f 6d 70 | is triv|ial comp|
|00000a10| 61 72 65 64 20 74 6f 20 | 74 68 69 73 2e 0d 09 09 |ared to |this....|
|00000a20| 73 65 74 20 72 65 74 75 | 72 6e 5f 70 61 67 65 20 |set retu|rn_page |
|00000a30| 74 6f 20 68 74 74 70 5f | 31 30 5f 68 65 61 64 65 |to http_|10_heade|
|00000a40| 72 20 c2 0d 09 09 09 26 | 20 c2 0d 09 09 09 22 3c |r .....&| ....."<|
|00000a50| 48 54 4d 4c 3e 3c 48 45 | 41 44 3e 3c 54 49 54 4c |HTML><HE|AD><TITL|
|00000a60| 45 3e 45 6d 61 69 6c 20 | 46 6f 72 6d 20 52 65 73 |E>Email |Form Res|
|00000a70| 75 6c 74 73 3c 2f 54 49 | 54 4c 45 3e 3c 2f 48 45 |ults</TI|TLE></HE|
|00000a80| 41 44 3e 22 20 26 20 22 | 3c 42 4f 44 59 3e 3c 48 |AD>" & "|<BODY><H|
|00000a90| 31 3e 45 6d 61 69 6c 20 | 46 6f 72 6d 20 52 65 73 |1>Email |Form Res|
|00000aa0| 75 6c 74 73 3c 2f 48 31 | 3e 22 20 26 20 72 65 74 |ults</H1|>" & ret|
|00000ab0| 75 72 6e 0d 09 09 0d 09 | 09 2d 2d 20 74 68 69 73 |urn.....|.-- this|
|00000ac0| 20 77 69 6c 6c 20 70 72 | 6f 64 75 63 65 20 61 20 | will pr|oduce a |
|00000ad0| 6c 69 73 74 20 6f 66 20 | 22 6e 61 6d 65 3d 76 61 |list of |"name=va|
|00000ae0| 6c 75 65 22 20 70 61 69 | 72 73 20 0d 09 09 73 65 |lue" pai|rs ...se|
|00000af0| 74 20 70 6f 73 74 61 72 | 67 6c 69 73 74 20 74 6f |t postar|glist to|
|00000b00| 20 74 6f 6b 65 6e 69 7a | 65 20 70 6f 73 74 5f 61 | tokeniz|e post_a|
|00000b10| 72 67 73 20 77 69 74 68 | 20 64 65 6c 69 6d 69 74 |rgs with| delimit|
|00000b20| 65 72 73 20 7b 22 26 22 | 7d 0d 09 09 0d 09 09 2d |ers {"&"|}......-|
|00000b30| 2d 20 70 72 6f 63 65 73 | 73 20 65 61 63 68 20 6c |- proces|s each l|
|00000b40| 69 73 74 20 70 61 69 72 | 20 69 6e 20 70 6f 73 74 |ist pair| in post|
|00000b50| 61 72 67 6c 69 73 74 0d | 09 09 2d 2d 20 73 74 6f |arglist.|..-- sto|
|00000b60| 72 65 20 74 68 65 20 6f | 72 69 67 69 6e 61 6c 20 |re the o|riginal |
|00000b70| 41 70 70 6c 65 53 63 72 | 69 70 74 20 74 65 78 74 |AppleScr|ipt text|
|00000b80| 20 69 74 65 6d 20 64 65 | 6c 69 6d 69 74 65 72 73 | item de|limiters|
|00000b90| 0d 09 09 73 65 74 20 6f | 6c 64 44 65 6c 69 6d 20 |...set o|ldDelim |
|00000ba0| 74 6f 20 41 70 70 6c 65 | 53 63 72 69 70 74 27 73 |to Apple|Script's|
|00000bb0| 20 74 65 78 74 20 69 74 | 65 6d 20 64 65 6c 69 6d | text it|em delim|
|00000bc0| 69 74 65 72 73 0d 09 09 | 2d 2d 20 75 73 65 20 22 |iters...|-- use "|
|00000bd0| 3d 22 20 74 6f 20 64 65 | 6c 69 6d 69 74 20 74 68 |=" to de|limit th|
|00000be0| 65 20 70 61 69 72 73 0d | 09 09 73 65 74 20 41 70 |e pairs.|..set Ap|
|00000bf0| 70 6c 65 53 63 72 69 70 | 74 27 73 20 74 65 78 74 |pleScrip|t's text|
|00000c00| 20 69 74 65 6d 20 64 65 | 6c 69 6d 69 74 65 72 73 | item de|limiters|
|00000c10| 20 74 6f 20 7b 22 3d 22 | 7d 0d 09 09 2d 2d 20 74 | to {"="|}...-- t|
|00000c20| 72 61 76 65 72 73 65 20 | 74 68 65 20 6c 69 73 74 |raverse |the list|
|00000c30| 20 61 6e 64 20 70 72 6f | 63 65 73 73 20 74 68 65 | and pro|cess the|
|00000c40| 20 69 74 65 6d 73 0d 09 | 09 72 65 70 65 61 74 20 | items..|.repeat |
|00000c50| 77 69 74 68 20 63 75 72 | 72 70 6f 73 74 61 72 67 |with cur|rpostarg|
|00000c60| 20 69 6e 20 70 6f 73 74 | 61 72 67 6c 69 73 74 0d | in post|arglist.|
|00000c70| 09 09 09 73 65 74 20 63 | 75 72 72 6e 61 6d 65 20 |...set c|urrname |
|00000c80| 74 6f 20 66 69 72 73 74 | 20 74 65 78 74 20 69 74 |to first| text it|
|00000c90| 65 6d 20 6f 66 20 63 75 | 72 72 70 6f 73 74 61 72 |em of cu|rrpostar|
|00000ca0| 67 0d 09 09 09 69 66 20 | 63 75 72 72 6e 61 6d 65 |g....if |currname|
|00000cb0| 20 3d 20 22 6e 61 6d 65 | 22 20 74 68 65 6e 0d 09 | = "name|" then..|
|00000cc0| 09 09 09 73 65 74 20 75 | 73 65 72 6e 61 6d 65 20 |...set u|sername |
|00000cd0| 74 6f 20 28 44 65 63 6f | 64 65 20 55 52 4c 20 28 |to (Deco|de URL (|
|00000ce0| 64 65 50 6c 75 73 20 28 | 6c 61 73 74 20 74 65 78 |dePlus (|last tex|
|00000cf0| 74 20 69 74 65 6d 20 6f | 66 20 63 75 72 72 70 6f |t item o|f currpo|
|00000d00| 73 74 61 72 67 29 29 29 | 0d 09 09 09 65 6c 73 65 |starg)))|....else|
|00000d10| 20 69 66 20 63 75 72 72 | 6e 61 6d 65 20 3d 20 22 | if curr|name = "|
|00000d20| 61 64 64 72 65 73 73 22 | 20 74 68 65 6e 0d 09 09 |address"| then...|
|00000d30| 09 09 73 65 74 20 66 72 | 6f 6d 5f 61 64 64 72 65 |..set fr|om_addre|
|00000d40| 73 73 20 74 6f 20 28 44 | 65 63 6f 64 65 20 55 52 |ss to (D|ecode UR|
|00000d50| 4c 20 28 64 65 50 6c 75 | 73 20 28 6c 61 73 74 20 |L (dePlu|s (last |
|00000d60| 74 65 78 74 20 69 74 65 | 6d 20 6f 66 20 63 75 72 |text ite|m of cur|
|00000d70| 72 70 6f 73 74 61 72 67 | 29 29 29 0d 09 09 09 65 |rpostarg|)))....e|
|00000d80| 6c 73 65 20 69 66 20 63 | 75 72 72 6e 61 6d 65 20 |lse if c|urrname |
|00000d90| 3d 20 22 73 75 62 6a 65 | 63 74 22 20 74 68 65 6e |= "subje|ct" then|
|00000da0| 0d 09 09 09 09 73 65 74 | 20 65 6d 61 69 6c 5f 73 |.....set| email_s|
|00000db0| 75 62 6a 65 63 74 20 74 | 6f 20 28 44 65 63 6f 64 |ubject t|o (Decod|
|00000dc0| 65 20 55 52 4c 20 28 64 | 65 50 6c 75 73 20 28 6c |e URL (d|ePlus (l|
|00000dd0| 61 73 74 20 74 65 78 74 | 20 69 74 65 6d 20 6f 66 |ast text| item of|
|00000de0| 20 63 75 72 72 70 6f 73 | 74 61 72 67 29 29 29 0d | currpos|targ))).|
|00000df0| 09 09 09 65 6c 73 65 20 | 69 66 20 63 75 72 72 6e |...else |if currn|
|00000e00| 61 6d 65 20 3d 20 22 6d | 65 73 73 61 67 65 22 20 |ame = "m|essage" |
|00000e10| 74 68 65 6e 0d 09 09 09 | 09 73 65 74 20 65 6d 61 |then....|.set ema|
|00000e20| 69 6c 5f 62 6f 64 79 20 | 74 6f 20 28 44 65 63 6f |il_body |to (Deco|
|00000e30| 64 65 20 55 52 4c 20 28 | 64 65 50 6c 75 73 20 28 |de URL (|dePlus (|
|00000e40| 6c 61 73 74 20 74 65 78 | 74 20 69 74 65 6d 20 6f |last tex|t item o|
|00000e50| 66 20 63 75 72 72 70 6f | 73 74 61 72 67 29 29 29 |f currpo|starg)))|
|00000e60| 0d 09 09 09 65 6c 73 65 | 20 69 66 20 63 75 72 72 |....else| if curr|
|00000e70| 6e 61 6d 65 20 3d 20 22 | 53 22 20 74 68 65 6e 0d |name = "|S" then.|
|00000e80| 09 09 09 09 2d 2d 20 69 | 67 6e 6f 72 65 20 69 74 |....-- i|gnore it|
|00000e90| 2e 20 20 54 68 61 74 27 | 73 20 74 68 65 20 53 75 |.  That'|s the Su|
|00000ea0| 62 6d 69 74 20 62 75 74 | 74 6f 6e 2e 0d 09 09 09 |bmit but|ton.....|
|00000eb0| 65 6c 73 65 0d 09 09 09 | 09 2d 2d 20 79 6f 75 20 |else....|.-- you |
|00000ec0| 68 61 76 65 20 61 20 76 | 61 72 69 61 62 6c 65 20 |have a v|ariable |
|00000ed0| 77 68 6f 27 73 20 6e 61 | 6d 65 20 79 6f 75 20 64 |who's na|me you d|
|00000ee0| 6f 6e 27 74 20 6b 6e 6f | 77 2e 20 20 42 61 64 20 |on't kno|w.  Bad |
|00000ef0| 6e 65 77 73 21 0d 09 09 | 09 09 2d 2d 20 63 72 65 |news!...|..-- cre|
|00000f00| 61 74 65 20 79 6f 75 72 | 20 6f 77 6e 20 65 72 72 |ate your| own err|
|00000f10| 4d 73 67 20 61 6e 64 20 | 65 72 72 4e 75 6d 20 74 |Msg and |errNum t|
|00000f20| 6f 20 70 61 73 73 20 62 | 61 63 6b 0d 09 09 09 09 |o pass b|ack.....|
|00000f30| 2d 2d 20 74 68 65 20 6e | 75 6d 62 65 72 20 31 30 |-- the n|umber 10|
|00000f40| 30 20 68 61 73 20 6e 6f | 20 73 69 67 6e 69 66 69 |0 has no| signifi|
|00000f50| 63 61 6e 63 65 2e 20 20 | 49 20 6a 75 73 74 20 63 |cance.  |I just c|
|00000f60| 68 6f 73 65 20 69 74 20 | 61 74 20 72 61 6e 64 6f |hose it |at rando|
|00000f70| 6d 0d 09 09 09 09 65 72 | 72 6f 72 20 28 22 55 6e |m.....er|ror ("Un|
|00000f80| 6b 6e 6f 77 6e 20 66 69 | 65 6c 64 20 69 6e 20 70 |known fi|eld in p|
|00000f90| 6f 73 74 5f 61 72 67 73 | 3a 20 22 20 26 20 63 75 |ost_args|: " & cu|
|00000fa0| 72 72 6e 61 6d 65 29 20 | 6e 75 6d 62 65 72 20 31 |rrname) |number 1|
|00000fb0| 30 30 0d 09 09 09 65 6e | 64 20 69 66 0d 09 09 65 |00....en|d if...e|
|00000fc0| 6e 64 20 72 65 70 65 61 | 74 0d 09 09 2d 2d 20 72 |nd repea|t...-- r|
|00000fd0| 65 73 74 6f 72 65 20 74 | 68 65 20 6f 6c 64 20 41 |estore t|he old A|
|00000fe0| 70 70 6c 65 53 63 72 69 | 70 74 20 74 65 78 74 20 |ppleScri|pt text |
|00000ff0| 69 74 65 6d 20 64 65 6c | 69 6d 69 74 65 72 73 20 |item del|imiters |
|00001000| 73 65 74 74 69 6e 67 73 | 0d 09 09 73 65 74 20 41 |settings|...set A|
|00001010| 70 70 6c 65 53 63 72 69 | 70 74 27 73 20 74 65 78 |ppleScri|pt's tex|
|00001020| 74 20 69 74 65 6d 20 64 | 65 6c 69 6d 69 74 65 72 |t item d|elimiter|
|00001030| 73 20 74 6f 20 6f 6c 64 | 44 65 6c 69 6d 0d 09 09 |s to old|Delim...|
|00001040| 0d 09 09 2d 2d 20 4e 4f | 54 45 3a 20 53 65 74 20 |...-- NO|TE: Set |
|00001050| 74 68 65 20 22 74 6f 5f | 61 64 64 72 65 73 73 22 |the "to_|address"|
|00001060| 20 74 6f 20 62 65 20 74 | 68 65 20 61 64 64 72 65 | to be t|he addre|
|00001070| 73 73 20 74 6f 20 77 68 | 69 63 68 20 79 6f 75 20 |ss to wh|ich you |
|00001080| 77 61 6e 74 20 61 6c 6c | 20 6f 66 20 74 68 65 20 |want all| of the |
|00001090| 6d 61 69 6c 20 73 65 6e | 74 2e 0d 09 09 73 65 74 |mail sen|t....set|
|000010a0| 20 74 6f 5f 61 64 64 72 | 65 73 73 20 74 6f 20 22 | to_addr|ess to "|
|000010b0| 6a 6f 6e 77 64 40 74 6a | 70 2e 77 61 73 68 69 6e |jonwd@tj|p.washin|
|000010c0| 67 74 6f 6e 2e 65 64 75 | 22 0d 09 09 73 65 74 20 |gton.edu|"...set |
|000010d0| 72 65 74 75 72 6e 5f 70 | 61 67 65 20 74 6f 20 72 |return_p|age to r|
|000010e0| 65 74 75 72 6e 5f 70 61 | 67 65 20 c2 0d 09 09 09 |eturn_pa|ge .....|
|000010f0| 26 20 22 45 2d 6d 61 69 | 6c 20 68 61 73 20 62 65 |& "E-mai|l has be|
|00001100| 65 6e 20 73 65 6e 74 20 | 74 6f 20 22 20 26 20 74 |en sent |to " & t|
|00001110| 6f 5f 61 64 64 72 65 73 | 73 20 26 20 72 65 74 75 |o_addres|s & retu|
|00001120| 72 6e 20 c2 0d 09 09 09 | 26 20 22 3c 50 3e 3c 49 |rn .....|& "<P><I|
|00001130| 3e 4d 65 73 73 61 67 65 | 20 67 65 6e 65 72 61 74 |>Message| generat|
|00001140| 65 64 20 61 74 3a 20 22 | 20 26 20 28 63 75 72 72 |ed at: "| & (curr|
|00001150| 65 6e 74 20 64 61 74 65 | 29 20 c2 0d 09 09 09 26 |ent date|) .....&|
|00001160| 20 22 3c 2f 49 3e 22 20 | 26 20 22 3c 2f 42 4f 44 | "</I>" |& "</BOD|
|00001170| 59 3e 3c 2f 48 54 4d 4c | 3e 22 0d 09 09 73 65 74 |Y></HTML|>"...set|
|00001180| 20 65 6d 61 69 6c 5f 68 | 6f 73 74 20 74 6f 20 22 | email_h|ost to "|
|00001190| 68 6f 6d 65 72 2e 75 2e | 77 61 73 68 69 6e 67 74 |homer.u.|washingt|
|000011a0| 6f 6e 2e 65 64 75 22 0d | 09 09 73 65 6e 64 5f 6d |on.edu".|..send_m|
|000011b0| 65 73 73 61 67 65 28 65 | 6d 61 69 6c 5f 68 6f 73 |essage(e|mail_hos|
|000011c0| 74 2c 20 74 6f 5f 61 64 | 64 72 65 73 73 2c 20 66 |t, to_ad|dress, f|
|000011d0| 72 6f 6d 5f 61 64 64 72 | 65 73 73 2c 20 65 6d 61 |rom_addr|ess, ema|
|000011e0| 69 6c 5f 73 75 62 6a 65 | 63 74 2c 20 65 6d 61 69 |il_subje|ct, emai|
|000011f0| 6c 5f 62 6f 64 79 29 0d | 09 09 2d 2d 20 72 65 74 |l_body).|..-- ret|
|00001200| 75 72 6e 20 74 68 65 20 | 70 61 67 65 20 63 72 65 |urn the |page cre|
|00001210| 61 74 65 64 2e 20 20 41 | 20 72 65 74 75 72 6e 20 |ated.  A| return |
|00001220| 73 74 61 74 65 6d 65 6e | 74 20 65 6e 64 73 20 74 |statemen|t ends t|
|00001230| 68 65 20 0d 09 09 2d 2d | 20 70 72 6f 63 65 73 73 |he ...--| process|
|00001240| 69 6e 67 20 6f 66 20 74 | 68 65 20 41 70 70 6c 65 |ing of t|he Apple|
|00001250| 45 76 65 6e 74 0d 09 09 | 72 65 74 75 72 6e 20 72 |Event...|return r|
|00001260| 65 74 75 72 6e 5f 70 61 | 67 65 0d 09 09 0d 09 09 |eturn_pa|ge......|
|00001270| 2d 2d 20 68 65 72 65 20 | 69 73 20 74 68 65 20 72 |-- here |is the r|
|00001280| 6f 75 74 69 6e 65 20 74 | 6f 20 72 75 6e 20 69 66 |outine t|o run if|
|00001290| 20 61 6e 20 65 72 72 6f | 72 20 6f 63 63 75 72 73 | an erro|r occurs|
|000012a0| 0d 09 09 2d 2d 20 65 72 | 72 4d 73 67 20 63 6f 6e |...-- er|rMsg con|
|000012b0| 74 61 69 6e 73 20 74 68 | 65 20 6d 65 73 73 61 67 |tains th|e messag|
|000012c0| 65 20 73 65 6e 74 20 62 | 79 20 74 68 65 20 53 79 |e sent b|y the Sy|
|000012d0| 73 74 65 6d 0d 09 09 2d | 2d 20 65 72 72 4e 75 6d |stem...-|- errNum|
|000012e0| 20 63 6f 6e 74 61 69 6e | 73 20 74 68 65 20 6e 75 | contain|s the nu|
|000012f0| 6d 62 65 72 20 6f 66 20 | 74 68 65 20 65 72 72 6f |mber of |the erro|
|00001300| 72 20 28 6e 65 67 61 74 | 69 76 65 20 66 6f 72 20 |r (negat|ive for |
|00001310| 53 79 73 74 65 6d 2c 20 | 41 45 2c 20 6f 72 20 41 |System, |AE, or A|
|00001320| 53 20 65 72 72 6f 72 73 | 29 0d 09 6f 6e 20 65 72 |S errors|)..on er|
|00001330| 72 6f 72 20 65 72 72 4d | 73 67 20 6e 75 6d 62 65 |ror errM|sg numbe|
|00001340| 72 20 65 72 72 4e 75 6d | 0d 09 09 2d 2d 20 63 72 |r errNum|...-- cr|
|00001350| 65 61 74 65 20 61 20 70 | 61 67 65 20 6f 66 20 48 |eate a p|age of H|
|00001360| 54 4d 4c 20 74 65 78 74 | 20 74 6f 20 72 65 74 75 |TML text| to retu|
|00001370| 72 6e 0d 09 09 73 65 74 | 20 72 65 74 75 72 6e 5f |rn...set| return_|
|00001380| 70 61 67 65 20 74 6f 20 | 68 74 74 70 5f 31 30 5f |page to |http_10_|
|00001390| 68 65 61 64 65 72 20 c2 | 0d 09 09 09 26 20 c2 0d |header .|....& ..|
|000013a0| 09 09 09 22 3c 48 54 4d | 4c 3e 3c 48 45 41 44 3e |..."<HTM|L><HEAD>|
|000013b0| 3c 54 49 54 4c 45 3e 45 | 72 72 6f 72 20 50 61 67 |<TITLE>E|rror Pag|
|000013c0| 65 3c 2f 54 49 54 4c 45 | 3e 3c 2f 48 45 41 44 3e |e</TITLE|></HEAD>|
|000013d0| 22 20 26 20 22 3c 42 4f | 44 59 3e 3c 48 31 3e 45 |" & "<BO|DY><H1>E|
|000013e0| 72 72 6f 72 20 45 6e 63 | 6f 75 6e 74 65 72 65 64 |rror Enc|ountered|
|000013f0| 21 3c 2f 48 31 3e 22 20 | 26 20 72 65 74 75 72 6e |!</H1>" |& return|
|00001400| 20 c2 0d 09 09 09 26 20 | 22 41 6e 20 65 72 72 6f | .....& |"An erro|
|00001410| 72 20 77 61 73 20 65 6e | 63 6f 75 6e 74 65 72 65 |r was en|countere|
|00001420| 64 20 77 68 69 6c 65 20 | 74 72 79 69 6e 67 20 74 |d while |trying t|
|00001430| 6f 20 72 75 6e 20 74 68 | 69 73 20 73 63 72 69 70 |o run th|is scrip|
|00001440| 74 2e 22 20 26 20 72 65 | 74 75 72 6e 0d 09 09 73 |t." & re|turn...s|
|00001450| 65 74 20 72 65 74 75 72 | 6e 5f 70 61 67 65 20 74 |et retur|n_page t|
|00001460| 6f 20 72 65 74 75 72 6e | 5f 70 61 67 65 20 c2 0d |o return|_page ..|
|00001470| 09 09 09 26 20 22 3c 48 | 33 3e 45 72 72 6f 72 20 |...& "<H|3>Error |
|00001480| 4d 65 73 73 61 67 65 3c | 2f 48 33 3e 22 20 26 20 |Message<|/H3>" & |
|00001490| 72 65 74 75 72 6e 20 26 | 20 65 72 72 4d 73 67 20 |return &| errMsg |
|000014a0| 26 20 72 65 74 75 72 6e | 20 c2 0d 09 09 09 26 20 |& return| .....& |
|000014b0| 22 3c 48 33 3e 45 72 72 | 6f 72 20 4e 75 6d 62 65 |"<H3>Err|or Numbe|
|000014c0| 72 3c 2f 48 33 3e 22 20 | 26 20 72 65 74 75 72 6e |r</H3>" |& return|
|000014d0| 20 26 20 65 72 72 4e 75 | 6d 20 26 20 72 65 74 75 | & errNu|m & retu|
|000014e0| 72 6e 20 c2 0d 09 09 09 | 26 20 22 3c 48 33 3e 44 |rn .....|& "<H3>D|
|000014f0| 61 74 65 3c 2f 48 33 3e | 22 20 26 20 72 65 74 75 |ate</H3>|" & retu|
|00001500| 72 6e 20 26 20 28 63 75 | 72 72 65 6e 74 20 64 61 |rn & (cu|rrent da|
|00001510| 74 65 29 20 26 20 72 65 | 74 75 72 6e 0d 09 09 73 |te) & re|turn...s|
|00001520| 65 74 20 72 65 74 75 72 | 6e 5f 70 61 67 65 20 74 |et retur|n_page t|
|00001530| 6f 20 72 65 74 75 72 6e | 5f 70 61 67 65 20 c2 0d |o return|_page ..|
|00001540| 09 09 09 26 20 c2 0d 09 | 09 09 22 3c 48 52 3e 50 |...& ...|.."<HR>P|
|00001550| 6c 65 61 73 65 20 6e 6f | 74 69 66 79 20 4a 6f 6e |lease no|tify Jon|
|00001560| 20 57 69 65 64 65 72 73 | 70 61 6e 20 61 74 20 22 | Wieders|pan at "|
|00001570| 20 26 20 c2 0d 09 09 09 | 22 3c 41 20 48 52 45 46 | & .....|"<A HREF|
|00001580| 3d 5c 22 6d 61 69 6c 74 | 6f 3a 6a 6f 6e 77 64 40 |=\"mailt|o:jonwd@|
|00001590| 74 6a 70 2e 77 61 73 68 | 69 6e 67 74 6f 6e 2e 65 |tjp.wash|ington.e|
|000015a0| 64 75 5c 22 3e 6a 6f 6e | 77 64 40 74 6a 70 2e 77 |du\">jon|wd@tjp.w|
|000015b0| 61 73 68 69 6e 67 74 6f | 6e 2e 65 64 75 3c 2f 41 |ashingto|n.edu</A|
|000015c0| 3e 22 20 26 20 22 20 6f | 66 20 74 68 69 73 20 65 |>" & " o|f this e|
|000015d0| 72 72 6f 72 2e 22 20 26 | 20 22 3c 2f 42 4f 44 59 |rror." &| "</BODY|
|000015e0| 3e 3c 2f 48 54 4d 4c 3e | 22 0d 09 09 2d 2d 20 72 |></HTML>|"...-- r|
|000015f0| 65 74 75 72 6e 20 74 68 | 65 20 70 61 67 65 20 63 |eturn th|e page c|
|00001600| 72 65 61 74 65 64 2e 20 | 20 41 20 72 65 74 75 72 |reated. | A retur|
|00001610| 6e 20 73 74 61 74 65 6d | 65 6e 74 20 65 6e 64 73 |n statem|ent ends|
|00001620| 20 74 68 65 20 0d 09 09 | 2d 2d 20 70 72 6f 63 65 | the ...|-- proce|
|00001630| 73 73 69 6e 67 20 6f 66 | 20 74 68 65 20 41 70 70 |ssing of| the App|
|00001640| 6c 65 45 76 65 6e 74 0d | 09 09 72 65 74 75 72 6e |leEvent.|..return|
|00001650| 20 72 65 74 75 72 6e 5f | 70 61 67 65 0d 09 65 6e | return_|page..en|
|00001660| 64 20 74 72 79 0d 65 6e | 64 20 c7 65 76 65 6e 74 |d try.en|d .event|
|00001670| 20 57 57 57 bd 73 64 6f | 63 c8 0d 0d 2d 2d 20 54 | WWW.sdo|c...-- T|
|00001680| 68 69 73 20 68 61 6e 64 | 6c 65 72 20 75 73 65 73 |his hand|ler uses|
|00001690| 20 74 68 65 20 54 43 50 | 49 50 20 53 63 72 69 70 | the TCP|IP Scrip|
|000016a0| 74 69 6e 67 20 53 75 69 | 74 65 20 74 6f 20 73 65 |ting Sui|te to se|
|000016b0| 6e 64 20 65 2d 6d 61 69 | 6c 20 74 6f 20 79 6f 75 |nd e-mai|l to you|
|000016c0| 72 20 6d 61 69 6c 68 6f | 73 74 2e 0d 2d 2d 20 4e |r mailho|st..-- N|
|000016d0| 6f 74 65 20 74 68 61 74 | 20 65 6d 61 69 6c 5f 68 |ote that| email_h|
|000016e0| 6f 73 74 20 69 73 20 74 | 68 65 20 6e 61 6d 65 20 |ost is t|he name |
|000016f0| 6f 66 20 61 20 6d 61 69 | 6c 20 73 65 72 76 65 72 |of a mai|l server|
|00001700| 2c 20 6e 6f 74 20 6a 75 | 73 74 20 79 6f 75 72 20 |, not ju|st your |
|00001710| 64 6f 6d 61 69 6e 20 6e | 61 6d 65 2e 0d 2d 2d 20 |domain n|ame..-- |
|00001720| 46 6f 72 20 73 6f 6d 65 | 20 72 65 61 73 6f 6e 20 |For some| reason |
|00001730| 74 68 61 74 20 49 20 68 | 61 76 65 6e 27 74 20 66 |that I h|aven't f|
|00001740| 69 67 75 72 65 64 20 6f | 75 74 20 79 65 74 20 28 |igured o|ut yet (|
|00001750| 66 72 6f 6d 20 6e 6f 74 | 20 72 65 61 64 69 6e 67 |from not| reading|
|00001760| 20 74 68 65 20 64 6f 63 | 73 29 2c 20 0d 2d 2d 20 | the doc|s), .-- |
|00001770| 74 68 69 73 20 72 65 71 | 75 69 72 65 73 20 74 68 |this req|uires th|
|00001780| 61 74 20 79 6f 75 20 73 | 65 6e 64 20 61 20 72 65 |at you s|end a re|
|00001790| 63 65 69 70 74 20 61 73 | 20 77 65 6c 6c 20 61 73 |ceipt as| well as|
|000017a0| 20 61 20 6d 65 73 73 61 | 67 65 2e 0d 6f 6e 20 73 | a messa|ge..on s|
|000017b0| 65 6e 64 5f 6d 65 73 73 | 61 67 65 28 65 6d 61 69 |end_mess|age(emai|
|000017c0| 6c 5f 68 6f 73 74 2c 20 | 74 6f 5f 61 64 64 72 65 |l_host, |to_addre|
|000017d0| 73 73 2c 20 66 72 6f 6d | 5f 61 64 64 72 65 73 73 |ss, from|_address|
|000017e0| 2c 20 65 6d 61 69 6c 5f | 73 75 62 6a 65 63 74 2c |, email_|subject,|
|000017f0| 20 65 6d 61 69 6c 5f 62 | 6f 64 79 29 0d 09 73 65 | email_b|ody)..se|
|00001800| 74 20 63 72 6c 66 20 74 | 6f 20 28 41 53 43 49 49 |t crlf t|o (ASCII|
|00001810| 20 63 68 61 72 61 63 74 | 65 72 20 31 33 29 20 26 | charact|er 13) &|
|00001820| 20 28 41 53 43 49 49 20 | 63 68 61 72 61 63 74 65 | (ASCII |characte|
|00001830| 72 20 31 30 29 0d 09 73 | 65 74 20 73 73 73 20 74 |r 10)..s|et sss t|
|00001840| 6f 20 28 74 63 70 20 63 | 6f 6e 6e 65 63 74 20 74 |o (tcp c|onnect t|
|00001850| 6f 20 68 6f 73 74 20 65 | 6d 61 69 6c 5f 68 6f 73 |o host e|mail_hos|
|00001860| 74 20 70 6f 72 74 20 32 | 35 29 0d 09 74 72 79 0d |t port 2|5)..try.|
|00001870| 09 09 72 65 61 64 72 65 | 73 70 6f 6e 73 65 28 73 |..readre|sponse(s|
|00001880| 73 73 29 0d 09 09 74 63 | 70 20 77 72 69 74 65 20 |ss)...tc|p write |
|00001890| 64 61 74 61 20 22 6d 61 | 69 6c 20 66 72 6f 6d 3a |data "ma|il from:|
|000018a0| 20 22 20 26 20 66 72 6f | 6d 5f 61 64 64 72 65 73 | " & fro|m_addres|
|000018b0| 73 20 26 20 72 65 74 75 | 72 6e 20 c2 0d 09 09 09 |s & retu|rn .....|
|000018c0| 73 74 72 65 61 6d 20 73 | 73 73 20 75 73 69 6e 67 |stream s|ss using|
|000018d0| 20 49 53 4f 38 38 35 39 | 31 0d 09 09 72 65 61 64 | ISO8859|1...read|
|000018e0| 72 65 73 70 6f 6e 73 65 | 28 73 73 73 29 0d 09 09 |response|(sss)...|
|000018f0| 74 63 70 20 77 72 69 74 | 65 20 64 61 74 61 20 22 |tcp writ|e data "|
|00001900| 72 63 70 74 20 74 6f 3a | 20 22 20 26 20 74 6f 5f |rcpt to:| " & to_|
|00001910| 61 64 64 72 65 73 73 20 | 26 20 72 65 74 75 72 6e |address |& return|
|00001920| 20 73 74 72 65 61 6d 20 | 73 73 73 20 75 73 69 6e | stream |sss usin|
|00001930| 67 20 49 53 4f 38 38 35 | 39 31 0d 09 09 72 65 61 |g ISO885|91...rea|
|00001940| 64 72 65 73 70 6f 6e 73 | 65 28 73 73 73 29 0d 09 |drespons|e(sss)..|
|00001950| 09 74 63 70 20 77 72 69 | 74 65 20 64 61 74 61 20 |.tcp wri|te data |
|00001960| 22 64 61 74 61 22 20 26 | 20 72 65 74 75 72 6e 20 |"data" &| return |
|00001970| 73 74 72 65 61 6d 20 73 | 73 73 20 75 73 69 6e 67 |stream s|ss using|
|00001980| 20 49 53 4f 38 38 35 39 | 31 0d 09 09 72 65 61 64 | ISO8859|1...read|
|00001990| 72 65 73 70 6f 6e 73 65 | 28 73 73 73 29 0d 09 09 |response|(sss)...|
|000019a0| 74 63 70 20 77 72 69 74 | 65 20 64 61 74 61 20 22 |tcp writ|e data "|
|000019b0| 54 6f 3a 20 22 20 26 20 | 74 6f 5f 61 64 64 72 65 |To: " & |to_addre|
|000019c0| 73 73 20 26 20 72 65 74 | 75 72 6e 20 73 74 72 65 |ss & ret|urn stre|
|000019d0| 61 6d 20 73 73 73 20 75 | 73 69 6e 67 20 49 53 4f |am sss u|sing ISO|
|000019e0| 38 38 35 39 31 0d 09 09 | 74 63 70 20 77 72 69 74 |88591...|tcp writ|
|000019f0| 65 20 64 61 74 61 20 22 | 53 75 62 6a 65 63 74 3a |e data "|Subject:|
|00001a00| 20 22 20 26 20 65 6d 61 | 69 6c 5f 73 75 62 6a 65 | " & ema|il_subje|
|00001a10| 63 74 20 26 20 72 65 74 | 75 72 6e 20 73 74 72 65 |ct & ret|urn stre|
|00001a20| 61 6d 20 73 73 73 20 75 | 73 69 6e 67 20 49 53 4f |am sss u|sing ISO|
|00001a30| 38 38 35 39 31 0d 09 09 | 74 63 70 20 77 72 69 74 |88591...|tcp writ|
|00001a40| 65 20 64 61 74 61 20 65 | 6d 61 69 6c 5f 62 6f 64 |e data e|mail_bod|
|00001a50| 79 20 26 20 63 72 6c 66 | 20 26 20 72 65 74 75 72 |y & crlf| & retur|
|00001a60| 6e 20 73 74 72 65 61 6d | 20 73 73 73 20 75 73 69 |n stream| sss usi|
|00001a70| 6e 67 20 49 53 4f 38 38 | 35 39 31 0d 09 09 74 63 |ng ISO88|591...tc|
|00001a80| 70 20 77 72 69 74 65 20 | 64 61 74 61 20 22 2e 22 |p write |data "."|
|00001a90| 20 26 20 72 65 74 75 72 | 6e 20 73 74 72 65 61 6d | & retur|n stream|
|00001aa0| 20 73 73 73 20 75 73 69 | 6e 67 20 49 53 4f 38 38 | sss usi|ng ISO88|
|00001ab0| 35 39 31 0d 09 09 72 65 | 61 64 72 65 73 70 6f 6e |591...re|adrespon|
|00001ac0| 73 65 28 73 73 73 29 0d | 09 09 74 63 70 20 63 6c |se(sss).|..tcp cl|
|00001ad0| 6f 73 65 20 73 74 72 65 | 61 6d 20 73 73 73 0d 09 |ose stre|am sss..|
|00001ae0| 09 72 65 74 75 72 6e 0d | 09 6f 6e 20 65 72 72 6f |.return.|.on erro|
|00001af0| 72 20 65 72 72 4d 73 67 | 20 6e 75 6d 62 65 72 20 |r errMsg| number |
|00001b00| 65 72 72 4e 75 6d 0d 09 | 09 73 65 74 20 72 65 74 |errNum..|.set ret|
|00001b10| 75 72 6e 5f 70 61 67 65 | 20 74 6f 20 68 74 74 70 |urn_page| to http|
|00001b20| 5f 31 30 5f 68 65 61 64 | 65 72 20 c2 0d 09 09 09 |_10_head|er .....|
|00001b30| 26 20 c2 0d 09 09 09 22 | 3c 48 54 4d 4c 3e 3c 48 |& ....."|<HTML><H|
|00001b40| 45 41 44 3e 3c 54 49 54 | 4c 45 3e 45 72 72 6f 72 |EAD><TIT|LE>Error|
|00001b50| 20 50 61 67 65 3c 2f 54 | 49 54 4c 45 3e 3c 2f 48 | Page</T|ITLE></H|
|00001b60| 45 41 44 3e 22 20 26 20 | 22 3c 42 4f 44 59 3e 3c |EAD>" & |"<BODY><|
|00001b70| 48 31 3e 45 72 72 6f 72 | 20 45 6e 63 6f 75 6e 74 |H1>Error| Encount|
|00001b80| 65 72 65 64 21 3c 2f 48 | 31 3e 22 20 26 20 72 65 |ered!</H|1>" & re|
|00001b90| 74 75 72 6e 20 c2 0d 09 | 09 09 26 20 22 41 6e 20 |turn ...|..& "An |
|00001ba0| 65 72 72 6f 72 20 77 61 | 73 20 65 6e 63 6f 75 6e |error wa|s encoun|
|00001bb0| 74 65 72 65 64 20 77 68 | 69 6c 65 20 74 72 79 69 |tered wh|ile tryi|
|00001bc0| 6e 67 20 74 6f 20 73 65 | 6e 64 20 74 68 65 20 6d |ng to se|nd the m|
|00001bd0| 61 69 6c 2e 22 20 26 20 | 72 65 74 75 72 6e 0d 09 |ail." & |return..|
|00001be0| 09 73 65 74 20 72 65 74 | 75 72 6e 5f 70 61 67 65 |.set ret|urn_page|
|00001bf0| 20 74 6f 20 72 65 74 75 | 72 6e 5f 70 61 67 65 20 | to retu|rn_page |
|00001c00| c2 0d 09 09 09 26 20 22 | 3c 48 33 3e 45 72 72 6f |.....& "|<H3>Erro|
|00001c10| 72 20 4d 65 73 73 61 67 | 65 3c 2f 48 33 3e 22 20 |r Messag|e</H3>" |
|00001c20| 26 20 72 65 74 75 72 6e | 20 26 20 65 72 72 4d 73 |& return| & errMs|
|00001c30| 67 20 26 20 72 65 74 75 | 72 6e 20 c2 0d 09 09 09 |g & retu|rn .....|
|00001c40| 26 20 22 3c 48 33 3e 45 | 72 72 6f 72 20 4e 75 6d |& "<H3>E|rror Num|
|00001c50| 62 65 72 3c 2f 48 33 3e | 22 20 26 20 72 65 74 75 |ber</H3>|" & retu|
|00001c60| 72 6e 20 26 20 65 72 72 | 4e 75 6d 20 26 20 72 65 |rn & err|Num & re|
|00001c70| 74 75 72 6e 20 c2 0d 09 | 09 09 26 20 22 3c 48 33 |turn ...|..& "<H3|
|00001c80| 3e 44 61 74 65 3c 2f 48 | 33 3e 22 20 26 20 72 65 |>Date</H|3>" & re|
|00001c90| 74 75 72 6e 20 26 20 28 | 63 75 72 72 65 6e 74 20 |turn & (|current |
|00001ca0| 64 61 74 65 29 20 26 20 | 72 65 74 75 72 6e 0d 09 |date) & |return..|
|00001cb0| 09 73 65 74 20 72 65 74 | 75 72 6e 5f 70 61 67 65 |.set ret|urn_page|
|00001cc0| 20 74 6f 20 72 65 74 75 | 72 6e 5f 70 61 67 65 20 | to retu|rn_page |
|00001cd0| c2 0d 09 09 09 26 20 c2 | 0d 09 09 09 22 3c 48 52 |.....& .|...."<HR|
|00001ce0| 3e 50 6c 65 61 73 65 20 | 6e 6f 74 69 66 79 20 4a |>Please |notify J|
|00001cf0| 6f 6e 20 57 69 65 64 65 | 72 73 70 61 6e 20 61 74 |on Wiede|rspan at|
|00001d00| 20 22 20 26 20 c2 0d 09 | 09 09 22 3c 41 20 48 52 | " & ...|.."<A HR|
|00001d10| 45 46 3d 5c 22 6d 61 69 | 6c 74 6f 3a 6a 6f 6e 77 |EF=\"mai|lto:jonw|
|00001d20| 64 40 74 6a 70 2e 77 61 | 73 68 69 6e 67 74 6f 6e |d@tjp.wa|shington|
|00001d30| 2e 65 64 75 5c 22 3e 6a | 6f 6e 77 64 40 74 6a 70 |.edu\">j|onwd@tjp|
|00001d40| 2e 77 61 73 68 69 6e 67 | 74 6f 6e 2e 65 64 75 3c |.washing|ton.edu<|
|00001d50| 2f 41 3e 22 20 26 20 22 | 20 6f 66 20 74 68 69 73 |/A>" & "| of this|
|00001d60| 20 65 72 72 6f 72 2e 22 | 20 26 20 22 3c 2f 42 4f | error."| & "</BO|
|00001d70| 44 59 3e 3c 2f 48 54 4d | 4c 3e 22 0d 09 09 72 65 |DY></HTM|L>"...re|
|00001d80| 74 75 72 6e 20 72 65 74 | 75 72 6e 5f 70 61 67 65 |turn ret|urn_page|
|00001d90| 0d 09 65 6e 64 20 74 72 | 79 0d 65 6e 64 20 73 65 |..end tr|y.end se|
|00001da0| 6e 64 5f 6d 65 73 73 61 | 67 65 0d 0d 2d 2d 20 54 |nd_messa|ge..-- T|
|00001db0| 68 69 73 20 68 61 6e 64 | 6c 65 72 20 69 73 20 75 |his hand|ler is u|
|00001dc0| 73 65 64 20 74 6f 20 72 | 65 61 64 20 74 68 65 20 |sed to r|ead the |
|00001dd0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 72 65 74 75 |informat|ion retu|
|00001de0| 72 6e 65 64 20 66 72 6f | 6d 20 74 68 65 20 6d 61 |rned fro|m the ma|
|00001df0| 69 6c 20 73 65 72 76 65 | 72 2e 0d 2d 2d 20 49 74 |il serve|r..-- It|
|00001e00| 20 72 65 71 75 69 72 65 | 73 20 74 68 65 20 54 43 | require|s the TC|
|00001e10| 50 49 50 20 53 63 72 69 | 70 74 69 6e 67 20 53 75 |PIP Scri|pting Su|
|00001e20| 69 74 65 2e 0d 6f 6e 20 | 72 65 61 64 72 65 73 70 |ite..on |readresp|
|00001e30| 6f 6e 73 65 28 73 73 74 | 72 65 61 6d 29 0d 09 73 |onse(sst|ream)..s|
|00001e40| 65 74 20 4c 46 20 74 6f | 20 41 53 43 49 49 20 63 |et LF to| ASCII c|
|00001e50| 68 61 72 61 63 74 65 72 | 20 28 31 30 29 0d 09 73 |haracter| (10)..s|
|00001e60| 65 74 20 63 6f 6e 74 69 | 6e 75 65 63 68 61 72 20 |et conti|nuechar |
|00001e70| 74 6f 20 22 2d 22 0d 09 | 73 65 74 20 77 68 6f 6c |to "-"..|set whol|
|00001e80| 65 6d 65 73 73 61 67 65 | 20 74 6f 20 22 22 0d 09 |emessage| to ""..|
|00001e90| 74 72 79 0d 09 09 72 65 | 70 65 61 74 20 75 6e 74 |try...re|peat unt|
|00001ea0| 69 6c 20 63 6f 6e 74 69 | 6e 75 65 63 68 61 72 20 |il conti|nuechar |
|00001eb0| 3d 20 22 20 22 0d 09 09 | 09 72 65 70 65 61 74 20 |= " "...|.repeat |
|00001ec0| 75 6e 74 69 6c 20 28 74 | 63 70 20 61 68 65 61 64 |until (t|cp ahead|
|00001ed0| 20 63 68 61 72 61 63 74 | 65 72 73 20 4c 46 20 73 | charact|ers LF s|
|00001ee0| 74 72 65 61 6d 20 73 73 | 74 72 65 61 6d 29 0d 09 |tream ss|tream)..|
|00001ef0| 09 09 65 6e 64 20 72 65 | 70 65 61 74 0d 09 09 09 |..end re|peat....|
|00001f00| 73 65 74 20 72 65 61 64 | 6c 69 6e 65 20 74 6f 20 |set read|line to |
|00001f10| 28 74 63 70 20 72 65 61 | 64 20 75 6e 74 69 6c 20 |(tcp rea|d until |
|00001f20| 63 68 61 72 61 63 74 65 | 72 73 20 4c 46 20 73 74 |characte|rs LF st|
|00001f30| 72 65 61 6d 20 73 73 74 | 72 65 61 6d 20 75 73 69 |ream sst|ream usi|
|00001f40| 6e 67 20 49 53 4f 38 38 | 35 39 31 29 0d 09 09 09 |ng ISO88|591)....|
|00001f50| 73 65 74 20 73 63 61 6e | 20 74 6f 20 28 73 63 61 |set scan| to (sca|
|00001f60| 6e 6c 69 6e 65 28 72 65 | 61 64 6c 69 6e 65 29 29 |nline(re|adline))|
|00001f70| 0d 09 09 09 73 65 74 20 | 63 6f 6e 74 69 6e 75 65 |....set |continue|
|00001f80| 63 68 61 72 20 74 6f 20 | 69 74 65 6d 20 32 20 6f |char to |item 2 o|
|00001f90| 66 20 73 63 61 6e 0d 09 | 09 09 73 65 74 20 77 68 |f scan..|..set wh|
|00001fa0| 6f 6c 65 6d 65 73 73 61 | 67 65 20 74 6f 20 77 68 |olemessa|ge to wh|
|00001fb0| 6f 6c 65 6d 65 73 73 61 | 67 65 20 26 20 22 20 22 |olemessa|ge & " "|
|00001fc0| 20 26 20 69 74 65 6d 20 | 33 20 6f 66 20 73 63 61 | & item |3 of sca|
|00001fd0| 6e 0d 09 09 65 6e 64 20 | 72 65 70 65 61 74 0d 09 |n...end |repeat..|
|00001fe0| 09 73 65 74 20 65 72 72 | 6f 72 43 6f 64 65 20 74 |.set err|orCode t|
|00001ff0| 6f 20 69 74 65 6d 20 31 | 20 6f 66 20 73 63 61 6e |o item 1| of scan|
|00002000| 20 61 73 20 69 6e 74 65 | 67 65 72 0d 09 09 69 66 | as inte|ger...if|
|00002010| 20 28 65 72 72 6f 72 43 | 6f 64 65 20 b3 20 34 30 | (errorC|ode . 40|
|00002020| 30 29 20 74 68 65 6e 0d | 09 09 09 65 72 72 6f 72 |0) then.|...error|
|00002030| 20 77 68 6f 6c 65 6d 65 | 73 73 61 67 65 20 6e 75 | wholeme|ssage nu|
|00002040| 6d 62 65 72 20 65 72 72 | 6f 72 43 6f 64 65 0d 09 |mber err|orCode..|
|00002050| 09 65 6e 64 20 69 66 0d | 09 6f 6e 20 65 72 72 6f |.end if.|.on erro|
|00002060| 72 20 65 72 72 4d 73 67 | 20 6e 75 6d 62 65 72 20 |r errMsg| number |
|00002070| 65 72 72 4e 75 6d 0d 09 | 09 73 65 74 20 72 65 74 |errNum..|.set ret|
|00002080| 75 72 6e 5f 70 61 67 65 | 20 74 6f 20 68 74 74 70 |urn_page| to http|
|00002090| 5f 31 30 5f 68 65 61 64 | 65 72 20 c2 0d 09 09 09 |_10_head|er .....|
|000020a0| 26 20 c2 0d 09 09 09 22 | 3c 48 54 4d 4c 3e 3c 48 |& ....."|<HTML><H|
|000020b0| 45 41 44 3e 3c 54 49 54 | 4c 45 3e 45 72 72 6f 72 |EAD><TIT|LE>Error|
|000020c0| 20 50 61 67 65 3c 2f 54 | 49 54 4c 45 3e 3c 2f 48 | Page</T|ITLE></H|
|000020d0| 45 41 44 3e 22 20 26 20 | 22 3c 42 4f 44 59 3e 3c |EAD>" & |"<BODY><|
|000020e0| 48 31 3e 45 72 72 6f 72 | 20 45 6e 63 6f 75 6e 74 |H1>Error| Encount|
|000020f0| 65 72 65 64 21 3c 2f 48 | 31 3e 22 20 26 20 72 65 |ered!</H|1>" & re|
|00002100| 74 75 72 6e 20 c2 0d 09 | 09 09 26 20 22 41 6e 20 |turn ...|..& "An |
|00002110| 65 72 72 6f 72 20 77 61 | 73 20 65 6e 63 6f 75 6e |error wa|s encoun|
|00002120| 74 65 72 65 64 20 77 68 | 69 6c 65 20 74 72 79 69 |tered wh|ile tryi|
|00002130| 6e 67 20 74 6f 20 72 65 | 61 64 20 74 68 65 20 6d |ng to re|ad the m|
|00002140| 61 69 6c 65 72 20 72 65 | 73 70 6f 6e 73 65 2e 22 |ailer re|sponse."|
|00002150| 20 26 20 72 65 74 75 72 | 6e 0d 09 09 73 65 74 20 | & retur|n...set |
|00002160| 72 65 74 75 72 6e 5f 70 | 61 67 65 20 74 6f 20 72 |return_p|age to r|
|00002170| 65 74 75 72 6e 5f 70 61 | 67 65 20 c2 0d 09 09 09 |eturn_pa|ge .....|
|00002180| 26 20 22 3c 48 33 3e 45 | 72 72 6f 72 20 4d 65 73 |& "<H3>E|rror Mes|
|00002190| 73 61 67 65 3c 2f 48 33 | 3e 22 20 26 20 72 65 74 |sage</H3|>" & ret|
|000021a0| 75 72 6e 20 26 20 65 72 | 72 4d 73 67 20 26 20 72 |urn & er|rMsg & r|
|000021b0| 65 74 75 72 6e 20 c2 0d | 09 09 09 26 20 22 3c 48 |eturn ..|...& "<H|
|000021c0| 33 3e 45 72 72 6f 72 20 | 4e 75 6d 62 65 72 3c 2f |3>Error |Number</|
|000021d0| 48 33 3e 22 20 26 20 72 | 65 74 75 72 6e 20 26 20 |H3>" & r|eturn & |
|000021e0| 65 72 72 4e 75 6d 20 26 | 20 72 65 74 75 72 6e 20 |errNum &| return |
|000021f0| c2 0d 09 09 09 26 20 22 | 3c 48 33 3e 44 61 74 65 |.....& "|<H3>Date|
|00002200| 3c 2f 48 33 3e 22 20 26 | 20 72 65 74 75 72 6e 20 |</H3>" &| return |
|00002210| 26 20 28 63 75 72 72 65 | 6e 74 20 64 61 74 65 29 |& (curre|nt date)|
|00002220| 20 26 20 72 65 74 75 72 | 6e 0d 09 09 73 65 74 20 | & retur|n...set |
|00002230| 72 65 74 75 72 6e 5f 70 | 61 67 65 20 74 6f 20 72 |return_p|age to r|
|00002240| 65 74 75 72 6e 5f 70 61 | 67 65 20 c2 0d 09 09 09 |eturn_pa|ge .....|
|00002250| 26 20 c2 0d 09 09 09 22 | 3c 48 52 3e 50 6c 65 61 |& ....."|<HR>Plea|
|00002260| 73 65 20 6e 6f 74 69 66 | 79 20 4a 6f 6e 20 57 69 |se notif|y Jon Wi|
|00002270| 65 64 65 72 73 70 61 6e | 20 61 74 20 22 20 26 20 |ederspan| at " & |
|00002280| c2 0d 09 09 09 22 3c 41 | 20 48 52 45 46 3d 5c 22 |....."<A| HREF=\"|
|00002290| 6d 61 69 6c 74 6f 3a 6a | 6f 6e 77 64 40 74 6a 70 |mailto:j|onwd@tjp|
|000022a0| 2e 77 61 73 68 69 6e 67 | 74 6f 6e 2e 65 64 75 5c |.washing|ton.edu\|
|000022b0| 22 3e 6a 6f 6e 77 64 40 | 74 6a 70 2e 77 61 73 68 |">jonwd@|tjp.wash|
|000022c0| 69 6e 67 74 6f 6e 2e 65 | 64 75 3c 2f 41 3e 22 20 |ington.e|du</A>" |
|000022d0| 26 20 22 20 6f 66 20 74 | 68 69 73 20 65 72 72 6f |& " of t|his erro|
|000022e0| 72 2e 22 20 26 20 22 3c | 2f 42 4f 44 59 3e 3c 2f |r." & "<|/BODY></|
|000022f0| 48 54 4d 4c 3e 22 0d 09 | 09 72 65 74 75 72 6e 20 |HTML>"..|.return |
|00002300| 72 65 74 75 72 6e 5f 70 | 61 67 65 0d 09 65 6e 64 |return_p|age..end|
|00002310| 20 74 72 79 0d 65 6e 64 | 20 72 65 61 64 72 65 73 | try.end| readres|
|00002320| 70 6f 6e 73 65 0d 0d 2d | 2d 20 54 68 69 73 20 68 |ponse..-|- This h|
|00002330| 61 6e 64 6c 65 72 20 69 | 73 20 75 73 65 64 20 74 |andler i|s used t|
|00002340| 6f 20 74 65 73 74 20 66 | 6f 72 20 6d 61 74 63 68 |o test f|or match|
|00002350| 69 6e 67 20 6d 65 73 73 | 61 67 65 73 2e 0d 2d 2d |ing mess|ages..--|
|00002360| 20 4d 61 74 63 68 65 73 | 20 6c 69 6e 65 73 20 6c | Matches| lines l|
|00002370| 69 6b 65 3a 20 32 35 30 | 20 74 65 73 74 2e 2e 2e |ike: 250| test...|
|00002380| 20 53 65 6e 64 65 72 20 | 6f 6b 0d 6f 6e 20 73 63 | Sender |ok.on sc|
|00002390| 61 6e 6c 69 6e 65 28 6c | 6c 69 6e 65 29 0d 09 72 |anline(l|line)..r|
|000023a0| 65 74 75 72 6e 20 7b 63 | 68 61 72 61 63 74 65 72 |eturn {c|haracter|
|000023b0| 73 20 31 20 74 68 72 6f | 75 67 68 20 33 20 6f 66 |s 1 thro|ugh 3 of|
|000023c0| 20 6c 6c 69 6e 65 20 61 | 73 20 73 74 72 69 6e 67 | lline a|s string|
|000023d0| 2c 20 63 68 61 72 61 63 | 74 65 72 20 34 20 c2 0d |, charac|ter 4 ..|
|000023e0| 09 09 6f 66 20 6c 6c 69 | 6e 65 20 61 73 20 73 74 |..of lli|ne as st|
|000023f0| 72 69 6e 67 2c 20 63 68 | 61 72 61 63 74 65 72 73 |ring, ch|aracters|
|00002400| 20 35 20 74 68 72 6f 75 | 67 68 20 65 6e 64 20 6f | 5 throu|gh end o|
|00002410| 66 20 6c 6c 69 6e 65 20 | 61 73 20 73 74 72 69 6e |f lline |as strin|
|00002420| 67 7d 0d 65 6e 64 20 73 | 63 61 6e 6c 69 6e 65 0d |g}.end s|canline.|
|00002430| 0d 2d 2d 20 54 68 65 20 | 69 64 6c 65 20 66 75 6e |.-- The |idle fun|
|00002440| 63 74 69 6f 6e 20 69 73 | 20 72 75 6e 20 65 76 65 |ction is| run eve|
|00002450| 72 79 74 69 6d 65 20 74 | 68 65 20 73 79 73 74 65 |rytime t|he syste|
|00002460| 6d 20 73 65 6e 64 73 20 | 61 6e 20 69 64 6c 65 20 |m sends |an idle |
|00002470| 6d 65 73 73 61 67 65 2e | 0d 2d 2d 20 49 66 20 74 |message.|.-- If t|
|00002480| 68 65 20 63 75 72 72 65 | 6e 74 20 64 61 74 65 20 |he curre|nt date |
|00002490| 69 73 20 6d 6f 72 65 20 | 74 68 61 6e 20 69 64 6c |is more |than idl|
|000024a0| 65 74 69 6d 65 20 73 65 | 63 6f 6e 64 73 20 6d 6f |etime se|conds mo|
|000024b0| 72 65 20 74 68 61 6e 20 | 74 68 65 20 6c 61 73 74 |re than |the last|
|000024c0| 20 64 61 74 65 20 0d 2d | 2d 20 74 68 65 6e 20 69 | date .-|- then i|
|000024d0| 74 20 69 73 20 74 69 6d | 65 20 74 6f 20 71 75 69 |t is tim|e to qui|
|000024e0| 74 2e 0d 2d 2d 20 54 68 | 65 20 72 65 74 75 72 6e |t..-- Th|e return|
|000024f0| 20 76 61 6c 75 65 20 74 | 65 6c 6c 73 20 74 68 65 | value t|ells the|
|00002500| 20 73 79 73 74 65 6d 20 | 68 6f 77 20 6c 6f 6e 67 | system |how long|
|00002510| 20 74 6f 20 77 61 69 74 | 20 62 65 66 6f 72 65 0d | to wait| before.|
|00002520| 6f 6e 20 69 64 6c 65 0d | 09 69 66 20 28 63 75 72 |on idle.|.if (cur|
|00002530| 72 65 6e 74 20 64 61 74 | 65 29 20 3e 20 28 64 61 |rent dat|e) > (da|
|00002540| 74 65 73 74 61 6d 70 20 | 2b 20 69 64 6c 65 74 69 |testamp |+ idleti|
|00002550| 6d 65 29 20 74 68 65 6e | 0d 09 09 71 75 69 74 0d |me) then|...quit.|
|00002560| 09 65 6e 64 20 69 66 0d | 09 72 65 74 75 72 6e 20 |.end if.|.return |
|00002570| 35 0d 65 6e 64 20 69 64 | 6c 65 0d 0d 2d 2d 20 54 |5.end id|le..-- T|
|00002580| 68 69 73 20 63 6f 64 65 | 20 61 6c 6c 6f 77 73 20 |his code| allows |
|00002590| 79 6f 75 20 74 6f 20 64 | 6f 20 61 6e 79 20 63 6c |you to d|o any cl|
|000025a0| 65 61 6e 2d 75 70 20 74 | 68 61 74 20 6d 69 67 68 |ean-up t|hat migh|
|000025b0| 74 20 62 65 20 6e 65 63 | 65 73 73 61 72 79 2e 0d |t be nec|essary..|
|000025c0| 2d 2d 20 45 78 61 6d 70 | 6c 65 3a 20 79 6f 75 20 |-- Examp|le: you |
|000025d0| 63 6f 75 6c 64 20 77 72 | 69 74 65 20 74 68 65 20 |could wr|ite the |
|000025e0| 71 75 69 74 20 65 76 65 | 6e 74 20 74 69 6d 65 20 |quit eve|nt time |
|000025f0| 74 6f 20 61 20 6c 6f 67 | 20 74 6f 20 73 65 65 20 |to a log| to see |
|00002600| 0d 2d 2d 20 68 6f 77 20 | 6f 66 74 65 6e 20 74 68 |.-- how |often th|
|00002610| 65 20 61 70 70 6c 65 74 | 20 69 73 20 72 75 6e 6e |e applet| is runn|
|00002620| 69 6e 67 2e 0d 6f 6e 20 | 71 75 69 74 0d 09 2d 2d |ing..on |quit..--|
|00002630| 20 64 6f 20 61 6e 79 20 | 63 6c 65 61 6e 2d 75 70 | do any |clean-up|
|00002640| 20 63 68 6f 72 65 73 20 | 68 65 72 65 0d 09 63 6f | chores |here..co|
|00002650| 6e 74 69 6e 75 65 20 71 | 75 69 74 0d 65 6e 64 20 |ntinue q|uit.end |
|00002660| 71 75 69 74 0d 00 00 00 | 00 00 00 00 00 00 00 00 |quit....|........|
|00002670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002680| 00 00 01 00 00 00 04 e0 | 00 00 03 e0 00 00 00 6e |........|.......n|
|00002690| 55 56 57 58 59 5a 5b 5c | 5d 5e 5f 60 61 00 62 63 |UVWXYZ[\|]^_`a.bc|
|000026a0| 64 65 66 67 68 69 6a 6b | 6c 6d 6e 6f 70 71 72 73 |defghijk|lmnopqrs|
|000026b0| 09 45 6d 61 69 6c 2e 74 | 78 74 02 00 00 00 50 61 |.Email.t|xt....Pa|
|000026c0| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 02 |rtSIT!..|........|
|000026d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 ab cd 2b 73 00 00 | 00 00 00 00 05 4e c2 c3 |....+s..|.....N..|
|00002700| c4 c5 c6 c7 c8 c9 ca cb | cc cd ce cf d0 d1 d2 d3 |........|........|
|00002710| d4 d5 d6 d7 d8 d9 da db | dc dd de df e0 e1 00 00 |........|........|
|00002720| 00 00 08 68 90 00 00 00 | 00 d9 00 0a 00 00 ff f6 |...h....|........|
|00002730| 00 0a 00 0c 03 51 00 0a | 00 02 00 00 00 34 00 00 |.....Q..|.....4..|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 03 |........|........|
|00002770| 80 4d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.M......|........|
|00002780| 00 00 00 78 00 03 00 00 | 00 48 00 48 00 00 00 00 |...x....|.H.H....|
|00002790| 02 28 02 da ff e3 ff e1 | 02 47 02 f9 03 45 05 28 |.(......|.G...E.(|
|000027a0| 03 fc 00 02 00 00 00 48 | 00 48 00 00 00 00 02 28 |.......H|.H.....(|
|000027b0| 02 da 00 01 00 00 00 64 | 00 00 00 01 00 03 03 03 |.......d|........|
|000027c0| 00 00 00 01 27 0f 00 01 | 00 01 00 00 00 00 00 00 |....'...|........|
|000027d0| 00 00 00 00 00 00 60 00 | 00 19 01 90 00 00 00 00 |......`.|........|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 00 |........|........|
|000027f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 02 a4 |........|........|
|00002800| 45 6d 61 69 6c 20 43 47 | 49 20 53 63 72 69 70 74 |Email CG|I Script|
|00002810| 0d 62 79 20 4a 6f 6e 20 | 57 69 65 64 65 72 73 70 |.by Jon |Wiedersp|
|00002820| 61 6e 20 20 20 6a 6f 6e | 77 64 40 74 6a 70 2e 77 |an   jon|wd@tjp.w|
|00002830| 61 73 68 69 6e 67 74 6f | 6e 2e 65 64 75 0d 68 74 |ashingto|n.edu.ht|
|00002840| 74 70 3a 2f 2f 77 77 77 | 2e 75 77 74 63 2e 77 61 |tp://www|.uwtc.wa|
|00002850| 73 68 69 6e 67 74 6f 6e | 2e 65 64 75 2f 4a 6f 6e |shington|.edu/Jon|
|00002860| 57 69 65 64 65 72 73 70 | 61 6e 2f 4a 6f 6e 42 69 |Wiedersp|an/JonBi|
|00002870| 6f 2e 68 74 6d 6c 0d 4e | 6f 74 65 3a 20 54 68 69 |o.html.N|ote: Thi|
|00002880| 73 20 73 63 72 69 70 74 | 20 75 73 65 73 20 72 6f |s script| uses ro|
|00002890| 75 74 69 6e 65 73 20 70 | 72 6f 76 69 64 65 64 20 |utines p|rovided |
|000028a0| 62 79 20 45 72 69 63 20 | 4d 6f 72 67 61 6e 20 69 |by Eric |Morgan i|
|000028b0| 6e 20 68 69 73 20 22 65 | 6d 61 69 6c 2e 63 67 69 |n his "e|mail.cgi|
|000028c0| 22 20 63 6f 64 65 20 66 | 6f 72 20 73 65 6e 64 69 |" code f|or sendi|
|000028d0| 6e 67 20 0d 65 6d 61 69 | 6c 20 75 73 69 6e 67 20 |ng .emai|l using |
|000028e0| 74 68 65 20 54 43 50 2f | 49 50 20 53 63 72 69 70 |the TCP/|IP Scrip|
|000028f0| 74 69 6e 67 20 53 75 69 | 74 65 2e 20 4c 6f 6f 6b |ting Sui|te. Look|
|00002900| 20 61 74 20 22 68 74 74 | 70 3a 2f 2f 77 77 77 2e | at "htt|p://www.|
|00002910| 6c 69 62 2e 6e 63 73 75 | 2e 65 64 75 2f 73 74 61 |lib.ncsu|.edu/sta|
|00002920| 66 66 2f 6d 6f 72 67 61 | 6e 2f 65 6d 61 69 6c 2d |ff/morga|n/email-|
|00002930| 63 67 69 2e 68 74 6d 6c | 22 20 66 6f 72 20 6d 6f |cgi.html|" for mo|
|00002940| 72 65 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 2e 0d |re infor|mation..|
|00002950| 52 65 71 75 69 72 65 73 | 3a 0d 20 20 2d 44 65 63 |Requires|:.  -Dec|
|00002960| 6f 64 65 55 52 4c 20 4f | 53 41 58 0d 20 20 2d 54 |odeURL O|SAX.  -T|
|00002970| 6f 6b 65 6e 69 7a 65 20 | 4f 53 41 58 0d 20 20 2d |okenize |OSAX.  -|
|00002980| 44 65 50 6c 75 73 20 4f | 53 41 58 0d 20 20 2d 54 |DePlus O|SAX.  -T|
|00002990| 43 50 2f 49 50 20 53 63 | 72 69 70 74 69 6e 67 20 |CP/IP Sc|ripting |
|000029a0| 41 64 64 69 74 69 6f 6e | 73 0d 49 6d 70 6c 65 6d |Addition|s.Implem|
|000029b0| 65 6e 74 73 3a 0d 20 20 | 20 41 63 63 65 70 74 73 |ents:.  | Accepts|
|000029c0| 20 61 20 50 4f 53 54 20 | 65 76 65 6e 74 2e 20 20 | a POST |event.  |
|000029d0| 52 65 71 75 69 72 65 73 | 20 74 68 61 74 20 74 68 |Requires| that th|
|000029e0| 65 20 75 73 65 72 27 73 | 20 65 2d 6d 61 69 6c 2c |e user's| e-mail,|
|000029f0| 20 6e 61 6d 65 2c 20 61 | 6e 64 20 67 72 6f 75 6e | name, a|nd groun|
|00002a00| 64 20 61 64 64 72 65 73 | 73 20 62 65 20 70 61 73 |d addres|s be pas|
|00002a10| 73 65 64 2e 20 20 53 65 | 6e 64 73 20 6d 61 69 6c |sed.  Se|nds mail|
|00002a20| 20 74 6f 20 22 6a 6f 6e | 77 64 40 74 6a 70 2e 77 | to "jon|wd@tjp.w|
|00002a30| 61 73 68 69 6e 67 74 6f | 6e 2e 65 64 75 22 20 61 |ashingto|n.edu" a|
|00002a40| 6e 64 20 61 20 72 65 63 | 65 69 70 74 20 74 6f 20 |nd a rec|eipt to |
|00002a50| 74 68 65 20 75 73 65 72 | 2e 20 20 41 6c 73 6f 20 |the user|.  Also |
|00002a60| 72 65 74 75 72 6e 73 20 | 61 6e 20 48 54 4d 4c 20 |returns |an HTML |
|00002a70| 70 61 67 65 20 74 6f 20 | 74 68 65 20 63 6c 69 65 |page to |the clie|
|00002a80| 6e 74 2e 0d 63 6f 70 79 | 72 69 67 68 74 20 4a 6f |nt..copy|right Jo|
|00002a90| 6e 20 57 69 65 64 65 72 | 73 70 61 6e a9 2c 20 31 |n Wieder|span., 1|
|00002aa0| 39 39 34 2e 00 00 00 a2 | 00 08 00 00 00 00 00 13 |994.....|........|
|00002ab0| 00 0e 00 14 01 00 00 12 | b3 b6 04 f7 ff ff 00 00 |........|........|
|00002ac0| 00 10 00 0c 00 09 00 14 | 01 00 00 0c 00 00 00 00 |........|........|
|00002ad0| 00 00 00 00 00 77 00 0c | 00 09 00 14 00 00 00 0c |.....w..|........|
|00002ae0| ff ff 02 18 10 c3 00 00 | 01 4f 00 0c 00 09 00 16 |........|.O......|
|00002af0| 01 00 00 0a 00 00 00 00 | 00 00 00 00 01 50 00 0c |........|.....P..|
|00002b00| 00 09 00 16 00 00 00 0a | 00 00 00 00 00 00 00 00 |........|........|
|00002b10| 01 a9 00 0c 00 09 00 16 | 01 00 00 0a 00 00 00 00 |........|........|
|00002b20| 00 00 00 00 01 aa 00 0c | 00 09 00 16 00 00 00 0a |........|........|
|00002b30| 00 00 00 00 00 00 00 00 | 02 84 00 0c 00 09 00 16 |........|........|
|00002b40| 01 00 00 0a 00 00 00 00 | 00 00 00 00 00 12 00 28 |........|.......(|
|00002b50| ff a2 01 dd 01 fd 00 28 | 00 02 01 53 01 dd 00 01 |.......(|...S....|
|00002b60| 00 00 01 00 00 00 04 e0 | 00 00 03 e0 00 00 00 6e |........|.......n|
|00002b70| 00 3f b9 7c 0e b2 00 00 | 00 1c 00 6e 00 03 50 52 |.?.|....|...n..PR|
|00002b80| 45 43 00 00 00 22 54 45 | 58 54 00 00 00 2e 73 74 |EC..."TE|XT....st|
|00002b90| 79 6c 00 00 00 3a 57 50 | 6f 73 00 00 00 46 00 80 |yl...:WP|os...F..|
|00002ba0| ff ff 00 00 00 00 00 3f | b6 e0 04 68 ff ff 00 00 |.......?|...h....|
|00002bb0| 00 7c 00 3f b7 ec 04 68 | ff ff 00 00 03 24 00 3f |.|.?...h|.....$.?|
|00002bc0| b7 84 00 80 ff ff 00 00 | 03 ca 00 3f b7 60 00 00 |........|...?.`..|
|00002bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+